:: jjm -nox -ind %1.ctr -binp arc\%1.bar -phase 22 
del jjm.std
del jjm.cor
jjm -nox -ind mod%1.ctl 
:: jjm -nox -ind mod%1.ctl -binp arc\mod%1.bar -phase 22
copy jjm.std arc\mod%1.std
copy For_R.dat arc\mod%1_R.dat 
copy Fprof.yld arc\mod%1_yld.dat 
copy mod%1.prj arc
copy proj.dat arc\mod%1_Proj.dat
copy jjm.cor arc\mod%1.cor
copy jjm.par arc\mod%1.par
copy jjm.bar arc\mod%1.bar
copy jjm.rep arc\mod%1.rep
call cleanad
